/* GUI CONVERTED from rciq03d1.p (converter v1.75) Tue Apr 10 12:04:32 2001 */
/* rciq03d1.p - Release Management Customer Schedules                         */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                        */
/* All rights reserved worldwide.  This is an unpublished work.               */
/* $Revision: 1.5.1.3 $                                                       */
/*V8:ConvertMode=Report                                                       */
/* REVISION: 7.5      LAST MODIFIED: 07/11/95           BY: GWM *J049*        */
/* REVISION: 8.5      LAST MODIFIED: 06/25/96           BY: taf *J0WC*        */
/* REVISION: 8.6      LAST MODIFIED: 10/22/97           BY: ckm *K14X*        */
/* REVISION: 8.6E     LAST MODIFIED: 02/23/98  BY: *L007* A. Rahane           */
/* REVISION: 8.6E     LAST MODIFIED: 10/04/98  BY: *J314* Alfred Tan          */
/* REVISION: 9.1      LAST MODIFIED: 03/24/00  BY: *N08T* Annasaheb Rahane    */
/* REVISION: 9.1      LAST MODIFIED: 08/12/00  BY: *N0KP* Mark Brown          */
/* $Revision: 1.5.1.3 $    BY: Jean Miller    DATE: 03/22/01 ECO: *P008*       */
/******************************************************************************/
/* All patch markers and commented out code have been removed from the source */
/* code below. For all future modifications to this file, any code which is   */
/* no longer required should be deleted and no in-line patch markers should   */
/* be added.  The ECO marker should only be included in the Revision History. */
/******************************************************************************/
/* CONTAINER INQUIRY SUBPROGRAM */


/*GUI preprocessor directive settings */
&SCOPED-DEFINE PP_GUI_CONVERT_MODE REPORT

{mfdeclre.i}
{gplabel.i} /* EXTERNAL LABEL INCLUDE */

/* ********** Begin Translatable Strings Definitions ********* */

&SCOPED-DEFINE rciq03d1_p_1 "Quantity"
/* MaxLen: Comment: */

&SCOPED-DEFINE rciq03d1_p_2 "ID"
/* MaxLen: Comment: */

&SCOPED-DEFINE rciq03d1_p_3 "Container!Site"
/* MaxLen: Comment: */

&SCOPED-DEFINE rciq03d1_p_4 "Item Number!Location"
/* MaxLen: Comment: */

&SCOPED-DEFINE rciq03d1_p_5 "!Lot/Serial"
/* MaxLen: Comment: */

&SCOPED-DEFINE rciq03d1_p_6 "!Ref"
/* MaxLen: Comment: */

/* ********** End Translatable Strings Definitions ********* */

{wbrp02.i}

define input parameter abs_recid as recid.
define input parameter indent_ct as integer.

define variable ctype as character label "T" format "x(1)".
define variable disp_abs_id as character.
define variable indent_id as character format "x(12)" label {&rciq03d1_p_2}.
define variable par_shipfrom as character.
define variable par_id as character.

define shared frame c.

FORM /*GUI*/ 
   indent_id    column-label {&rciq03d1_p_3}
   abs_item     column-label {&rciq03d1_p_4}
   scx_po       column-label {&rciq03d1_p_5} format "x(16)"
   scx_order    column-label {&rciq03d1_p_6}
   abs_qty      format "->,>>>,>>9.9<<<<<<<<" column-label {&rciq03d1_p_1}
   pt_um
with STREAM-IO /*GUI*/  frame c down width 80.

/* SET EXTERNAL LABELS */
setFrameLabels(frame c:handle).

find abs_mstr where recid(abs_mstr) = abs_recid no-lock.

find pt_mstr where pt_part = abs_item no-lock no-error.

if indent_ct = 0 then
   indent_id = substring(abs_id,2).
else
   indent_id = substring("...........",1,indent_ct) + if abs_id begins "I"
               then
                  "I"
               else
                  abs_id.

indent_id = caps(indent_id).

/* ABS__QAD02 CONTAINS THE CONTAINER UNIT OF MEASURE */
display
   indent_id
   abs_item
   abs_qty    when (abs_qty <> 0)
   abs__qad02 @ pt_um
with frame c STREAM-IO /*GUI*/ .

down 1 with frame c.

display
   abs_site @ indent_id
   abs_loc  @ abs_item
   abs_lotser @ scx_po
   abs_ref @ scx_order
with frame c STREAM-IO /*GUI*/ .

down 1 with frame c.

assign
   par_shipfrom = abs_shipfrom
   par_id = abs_id.

for each abs_mstr
   where abs_shipfrom = par_shipfrom
     and abs_par_id = par_id
no-lock:

   if keyfunction(lastkey) = "END-ERROR" then
      leave.

   {gprun.i ""rciq03d1.p""
      "(input recid(abs_mstr), input (indent_ct + 1))"}
end.

{wbrp04.i}
